home *** CD-ROM | disk | FTP | other *** search
/ Mastering Web Site Development / Microsoft Mastering Web Site Development (Microsoft) (1997).iso / Labs / StateUFinal / transferclass.asp < prev   
Text File  |  1997-04-24  |  2KB  |  47 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2.  
  3. <HTML>
  4. <head>
  5. <meta name="GENERATOR" content="Microsoft Developer Studio">
  6. <meta http-equiv="Content-Type"
  7. content="text/html; charset=iso-8859-1">
  8. <title>Transfer Classes ASP</title>
  9. <link rel="STYLESHEET" href="Stylesheets/Grid/Style2.css">
  10. </head>
  11.  
  12. <body background="Images/Grid/Background/Back2.jpg"
  13. bgcolor="White">
  14. <basefont face="Arial, Helvetica, sans-serif">
  15.  
  16.  
  17. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  18.     <tr>
  19.         <th align="Left" nowrap bgcolor="Silver"
  20.         background="./Images/Grid/Navigation/Nav1.jpg"> <font
  21.         size="6"> Enrollment </font> </th>
  22.     </tr>
  23.     <tr>
  24.         <td bgcolor="#FFFFCC"> <font size="-1">  
  25.         Transfer from one class to another</font> </td>
  26.     </tr>
  27. </table>
  28.  
  29. <% On Error Resume Next
  30.    lngStudentID = session("id")
  31.    strSrcClassID = request("srcclassid")
  32.    strDstClassID = request("dstclassid")
  33.    set Transferobj = server.createobject("Transfer.Obj")
  34.    errTransferStudent = Transferobj.Transfer(lngStudentID,strSrcClassID,strDstClassID)
  35.    if errTransferStudent = 1 then
  36.     response.write "An error occurred and the class could not be added. Be sure that you are using a valid student ID and that you are not already enrolled in the class you are adding, and that you are not dropping from a class that has already been graded."
  37.     response.End
  38.    end if
  39. %>
  40. Student <%=lngStudentID%> has been dropped from class <%=strSrcClassID%> and
  41. added to class <%=strDstClassID%>
  42. <hr>
  43. <a href="classview.htm">Return to class registration page</a>
  44.  
  45. </BODY>
  46. </HTML>
  47.